home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / 03_urag / cover0 / 00072_Script_72 < prev    next >
Text File  |  1980-02-16  |  821b  |  41 lines
  1. on startMovie
  2.   when keyDown then keyCheck
  3.   puppetSprite 9, true
  4.   set the castNum of sprite 9 to A35
  5.   updateStage
  6. end startMovie
  7.  
  8. on keyCheck
  9.   if the keyCode = 123 then
  10.     dontPassEvent
  11.     myPrev
  12.   else if the keyCode = 124 then
  13.     dontPassEvent 
  14.     myNext
  15.   else if the key = ENTER or the key = RETURN then
  16.     dontPassEvent 
  17.     put the castNum of sprite 2 into myBook
  18.     put the name of cast myBook into myview
  19.     play frame 1 of movie myview
  20.   end if
  21. end keyCheck
  22.  
  23. on myNext
  24.   puppetSound "Shutter" 
  25.   if the frame = 13 then       ---Last frame
  26.     play frame 20       ---demo
  27.   else
  28.     go to marker (1)
  29.   end if
  30. end myNext
  31.  
  32. on myPrev
  33.   puppetSound "Shutter" 
  34.   if the frame = 1 then
  35.     play frame 20       ---demo
  36.   else
  37.     go to marker (-1)
  38.   end if
  39. end myPrev
  40.  
  41.